﻿Imports System
Public Class Celda

#Region "variables"

    Private _celda As String    'nombre combinacion de letra y numero. Ej: a1
    Private _figura As String   'nombre de la fig blanco, negro, "" vacio
    Private _posx As Integer    'valor fila
    Private _posy As Integer    'valor columna
    Private _posxy As String    'concatenacion fila columna 2 1->21

#End Region

#Region "Propiedades"


    Property celda() As String
        Get
            Return _celda
        End Get
        Set(ByVal value As String)
            _celda = value
        End Set
    End Property

    Property figura() As String
        Get
            Return _figura
        End Get
        Set(ByVal value As String)
            _figura = value
        End Set
    End Property

    Property posicionx() As Integer
        Get
            Return _posx
        End Get
        Set(ByVal value As Integer)
            _posx = value
        End Set
    End Property

    Property posicionY() As Integer
        Get
            Return _posy
        End Get
        Set(ByVal value As Integer)
            _posy = value
        End Set
    End Property

    Property posicionXY() As String
        Get
            Return _posxy
        End Get
        Set(ByVal value As String)
            _posxy = value
        End Set
    End Property
#End Region

#Region "Constructor"
    ' Si se incluye el parámetro
    ' Overloads permite la sobrecarga del procedimiento New
    Public Sub New(ByVal cel As String)
        ' MyBase.New() siempre debe estar en el constructor
        MyBase.New()
        ' Se llama a un procedimiento interno en el que se asignarán otros valores
        Constructor(cel)

    End Sub
    Public Sub New()
        ' MyBase.New() siempre debe estar en el constructor
        MyBase.New()
        Constructor()
    End Sub
    'crea la celda con su nombre definido
    Private Overloads Sub Constructor(ByVal cel As String)

        _celda = cel
        _figura = ""
    End Sub
    'constructor por defecto, tal vez no sea necesario usarlo
    Private Overloads Sub Constructor()
        _celda = ""
        _figura = ""
    End Sub

#End Region

    

End Class
